#!/usr/local/bin/perl -w
use strict;

use Log::Syslog::Fast ':all';

my $logger = Log::Syslog::Fast->new(LOG_UNIX, "/dev/log", 0, LOG_LOCAL0, LOG_INFO, "before", "tp");
$logger->send("log message");

$logger->set_sender("test");
$logger->send("log message for test");

$logger->set_sender("www");
$logger->send("log message for www");
